home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / os2 / xdsn217.zip / BIN / url.cmd < prev    next >
OS/2 REXX Batch file  |  1996-07-10  |  737b  |  24 lines

  1. /* Create a WebExplorer URL desktop object for XDS Web page */
  2.  
  3. Call RxFuncAdd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'
  4. Call SysLoadFuncs
  5.  
  6. Call SysQueryClassList "list."
  7.  
  8. do i=1 to list.0
  9.   if substr(list.i,1,15) = 'WebExplorer_Url' then do
  10.     say "WebExplorer_Url class found"
  11.     classname = 'WebExplorer_Url'
  12.     title     = 'XDS Web Page'
  13.     location  = '<WP_DESKTOP>'
  14.     setup     = 'OBJECTID=<XDS_URL>;OPEN=NONE;LOCATOR=http://www.iis.nsk.su/xtech/xds/'
  15.     result = SysCreateObject(classname, title, location, setup, 'U')
  16.     if result = 1 then say  'Created: 'title
  17.     else               say  'Not created: 'title' !!! Return code='result
  18.     exit
  19.   end
  20. end
  21.  
  22. say "WebExplorer_Url class not found"
  23. exit
  24.